700
How can I change the shape of the task bar

with thisform.G2antt1
	with .Chart.Bars.Copy("Task","T2")
		.StartShape = 2
		.StartColor = RGB(255,0,0)
	endwith
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"T2",{^2001-1-2},{^2001-1-4})
		.AddBar(.AddItem("Item 2"),"Task",{^2001-1-2},{^2001-1-4})
	endwith
endwith
699
How can I change the starting shape for all task bars

with thisform.G2antt1
	with .Chart.Bars.Item("Task")
		.StartShape = 1
		.StartColor = RGB(255,0,0)
	endwith
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
	endwith
endwith
698
How can I change the height of the task bar

with thisform.G2antt1
	.Chart.Bars.Copy("Task","T2").Height = 17
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"T2",{^2001-1-2},{^2001-1-4})
		.AddBar(.AddItem("Item 2"),"Task",{^2001-1-2},{^2001-1-4})
	endwith
endwith
697
How can I change the height for all task bars

with thisform.G2antt1
	.Chart.Bars.Item("Task").Height = 17
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
	endwith
endwith
696
How can I change the color of the task bar

with thisform.G2antt1
	.Chart.Bars.Copy("Task","T2").Color = RGB(255,0,0)
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"T2",{^2001-1-2},{^2001-1-4})
		.AddBar(.AddItem("Item 2"),"Task",{^2001-1-2},{^2001-1-4})
	endwith
endwith
695
How can I change the color for all task bars

with thisform.G2antt1
	.Chart.Bars.Item("Task").Color = RGB(255,0,0)
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
	endwith
endwith
694
How can I change the shape for all task bars

with thisform.G2antt1
	.Chart.Bars.Item("Task").Shape = 4
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
	endwith
endwith
693
How can I change the shape of the task bar

with thisform.G2antt1
	.Chart.Bars.Copy("Task","T2").Shape = 19
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"T2",{^2001-1-2},{^2001-1-4})
	endwith
endwith
692
How can I change the pattern or style for all task bars

with thisform.G2antt1
	.Chart.Bars.Item("Task").Pattern = 5
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"Task",{^2001-1-2},{^2001-1-4})
	endwith
endwith
691
How can I change the pattern of the task bar

with thisform.G2antt1
	.Chart.Bars.Copy("Task","T2").Pattern = 5
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Columns.Add("Column")
	with .Items
		.AddBar(.AddItem("Item 1"),"T2",{^2001-1-2},{^2001-1-4})
	endwith
endwith
690
How can I add a percent bar in the chart area, so the task bar is splited for non working days or hours

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.Bars.Add("Task%Progress:Split").Shortcut = "TS"
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"TS",{^2001-1-2},{^2001-1-16},"P1")
		.DefaultItem = h
		.ItemBar(0,"P1",12) = 0.14
		.DefaultItem = h
		.ItemBar(0,"P1",14) = .T.
	endwith
endwith
689
How can I add a bar in the chart area, so the task bar is splited for non working days or hours

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.Bars.Add("Task:Split").Shortcut = "TS"
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"TS",{^2001-1-2},{^2001-1-16})
	endwith
endwith
688
How can I add a split bar in the chart area

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"Split",{^2001-1-2},{^2001-1-6})
	endwith
endwith
687
How can I add a progress bar in the chart area

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"Progress",{^2001-1-2},{^2001-1-6})
	endwith
endwith
686
How can I add a milestone bar in the chart area

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"Milestone",{^2001-1-2},{^2001-1-2})
	endwith
endwith
685
How can I add a summary bar in the chart area

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"Summary",{^2001-1-2},{^2001-1-6})
	endwith
endwith
684
How can I add a project summary bar in the chart area

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"Project Summary",{^2001-1-2},{^2001-1-6})
	endwith
endwith
683
How can I add a deadline bar in the chart area

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"Deadline",{^2001-1-2},{^2001-1-2})
	endwith
endwith
682
How can I add a task bar in the chart area

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4})
	endwith
endwith
681
How can I assign a picture or an icon to a bar in the chart

with thisform.G2antt1
	.Object.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.DefaultItem = h
		.ItemHeight(0) = 48
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",3) = "<img>p1</img>"
		.DefaultItem = h
		.ItemBar(0,"K1",4) = 2
	endwith
endwith
680
How can I assign a picture or an icon to a bar in the chart

with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",3) = "<img>1</img>"
	endwith
endwith
679
How can I display or add an anchor or a hyperlink in the link

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"K1")
		.AddItem("")
		.AddItem("")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "just <a1>link</a>"
	endwith
endwith
678
How can I display a picture or an icon on the link

with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"K1")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "just <img>1</img> link"
	endwith
endwith
677
How can I display a picture or an icon on the link

with thisform.G2antt1
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"K1")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "<img>pic1</img><br><br>just a link"
	endwith
endwith
676
How can I display some HTML text or caption on link

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "L<b>1</b>"
	endwith
endwith
675
How can I assign a tooltip to a link

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "L<b>1</b>"
		.Link("L1",13) = "This is a bit of text that's shown when the cursor hovers the link"
	endwith
endwith
674
Can I change the width or the size of the link

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",9) = 0
		.Link("L1",10) = 2
	endwith
endwith
673
Can I change the style of the link

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",9) = 4
	endwith
endwith
672
Can I change the color of the link

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",8) = 255
	endwith
endwith
671
Can I change the part of the bar where the link ends

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",6) = 1
		.Link("L1",7) = 1
	endwith
endwith
670
Can I change the part of the bar where the link starts

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",6) = 0
	endwith
endwith
669
How can I associate an extra data to a link
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",5) = "your data"
	endwith
endwith
668
How can I show or hide a specified link
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",3) = .F.
	endwith
endwith
667
How can I get the key of the bar where the link end
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.AddItem(.Link("L1",3))
	endwith
endwith
666
How can I get the key of the bar where the link starts
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.AddItem(.Link("L1",1))
	endwith
endwith
665
How can I get the handle of the item where the link ends
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.AddItem(.Link("L1",2))
	endwith
endwith
664
How can I get the handle of the item where the link starts
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.AddItem(.Link("L1",0))
	endwith
endwith
663
How can I enumerate the links in the chart
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.AddLink("L2",h2,"K2",h1,"K1")
		.AddItem(.FirstLink)
		.AddItem(.NextLink(.FirstLink))
	endwith
endwith
662
How can I access the properties and method of the link between two bars
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",12) = "L<b>1</b>"
	endwith
endwith
661
How can I remove a link between two bars
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.ClearLinks
	endwith
endwith
660
How can I remove a link between two bars
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.RemoveLink("L1")
	endwith
endwith
659
How do I add a link between two bars

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
	endwith
endwith
658
How do I ungroup the bars in the chart
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.GroupBars(h1,"K1",.T.,h2,"K2",.T.)
		.GroupBars(h1,"K1",.F.,h2,"K2",.F.)
		.UngroupBars(h1,"K1",h2,"K2")
	endwith
endwith
657
How do I group one or more bars in the chart, so they are moved together
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.GroupBars(h1,"K1",.T.,h2,"K2",.T.)
		.GroupBars(h1,"K1",.F.,h2,"K2",.F.)
	endwith
endwith
656
How do I find the number or count of bars in the item
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-1},{^2001-1-2},"K1")
		.AddBar(h,"Task",{^2001-1-4},{^2001-1-6},"K2")
		.DefaultItem = h
		.ItemBar(0,"K2",3) = .ItemBar(h,"<*>",256)
	endwith
endwith
655
How can I assign any extra data to a bar in the chart
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",17) = "your data"
	endwith
endwith
654
How can I enable or disable resizing the percent value of a progress bar, at runtime

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",12) = 0.35
		.DefaultItem = h
		.ItemBar(0,"K1",16) = .F.
	endwith
endwith
653
Is there any way to change the background color for percent value being displayed on the progress bar

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",12) = 0.35
		.DefaultItem = h
		.ItemBar(0,"K1",14) = .T.
		.DefaultItem = h
		.ItemBar(0,"K1",13) = "<bgcolor=FF0000> %p%</bgcolor>"
	endwith
endwith
652
Is there any way to change the color for percent value being displayed on the progress bar

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",12) = 0.35
		.DefaultItem = h
		.ItemBar(0,"K1",14) = .T.
		.DefaultItem = h
		.ItemBar(0,"K1",13) = "<fgcolor=FF0000>%p%</fgcolor>"
	endwith
endwith
651
Is there any way to change the font for percent value being displayed on the progress bar

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",12) = 0.35
		.DefaultItem = h
		.ItemBar(0,"K1",14) = .T.
		.DefaultItem = h
		.ItemBar(0,"K1",13) = "<b><font Tahoma;12>%%p</font></b>"
	endwith
endwith
650
How can I horizontally align the caption / percent of a progress-bar

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.LevelCount = 2
		.PaneWidth(0) = 128
		.FirstVisibleDate = {^2001-1-1}
		with .Bars.Add("Task%Progress")
			.Shortcut = "Percent"
			.Def(14) = .T.
			.Def(12) = 1
		endwith
	endwith
	with .Items
		h = .AddItem("Left")
		.AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",15) = 0
		h = .AddItem("Center")
		.AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",15) = 1
		h = .AddItem("Right")
		.AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",15) = 2
		h = .AddItem("Left")
		.AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",15) = 0
		.DefaultItem = h
		.ItemBar(0,"K1",12) = 0.5
		h = .AddItem("Center")
		.AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",12) = 0.5
		.DefaultItem = h
		.ItemBar(0,"K1",15) = 1
		h = .AddItem("Right")
		.AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",15) = 2
		.DefaultItem = h
		.ItemBar(0,"K1",12) = 0.5
	endwith
	.EndUpdate
endwith
649
Is there any way to change the format of the percent being displayed on the progress bar

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",12) = 0.4
		.DefaultItem = h
		.ItemBar(0,"K1",14) = .T.
		.DefaultItem = h
		.ItemBar(0,"K1",13) = "<b>%p/100</b>"
	endwith
endwith
648
How can I show or hide the percent value in the progress bar

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",12) = 0.4
		.DefaultItem = h
		.ItemBar(0,"K1",14) = .T.
	endwith
endwith
647
How can I change the percent value in a progress bar

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Percent",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",12) = 0.4
	endwith
endwith
646
How can I add a percent bar

*** BarResize event - Occurs when a bar is moved or resized. ***
LPARAMETERS Item,Key
	with thisform.G2antt1
		DEBUGOUT( Key )
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 64
		with .Bars.Add("Task%Progress")
			.Shortcut = "P"
			.Def(14) = .T.
		endwith
	endwith
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"P",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",12) = 0.4
		h = .AddItem("Task 2")
		.AddBar(h,"Task%Progress",{^2001-1-2},{^2001-1-6},"K2")
		.DefaultItem = h
		.ItemBar(0,"K2",12) = 0.15
	endwith
	.EndUpdate
endwith
645
How can I fix or lock a specified bar at runtime, in the chart
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",10) = .F.
		.DefaultItem = h
		.ItemBar(0,"K1",11) = .F.
	endwith
endwith
644
How can I enabled or disable moving a specified bar at runtime, in the chart
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",10) = .F.
		.DefaultItem = h
		.ItemBar(0,"K1",11) = .F.
	endwith
endwith
643
How can I enabled or disable sizing a specified bar at runtime, in the chart
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",10) = .F.
	endwith
endwith
642
How can I change the key of the bar in the chart
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",9) = "NewK"
		.DefaultItem = h
		.ItemBar(0,"NewK",3) = .ItemBar(h,"NewK",9)
	endwith
endwith
641
Can I add a bar in the chart, using your EBN files

with thisform.G2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"",{^2001-1-2},{^2001-1-5},"K1"," EBN ")
		.DefaultItem = h
		.ItemBar(0,"K1",7) = 16777216
		.AddBar(h,"Task",{^2001-1-6},{^2001-1-8},"K2")
	endwith
endwith
640
How can I change the background color of the bar in the chart

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.Bars.Copy("Task","TaskR").Color = RGB(255,0,0)
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"TaskR",{^2001-1-2},{^2001-1-6},"K1")
	endwith
endwith
639
How can I change the background color of the bar in the chart

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.ShowNonworkingDates = 0
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",7) = 8421504
	endwith
endwith
638
How can I change the background color of the HTML text or caption of the bar in the chart

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"
	endwith
endwith
637
How can I change the foreground color of the HTML text or caption of the bar in the chart

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1","t<fgcolor=0000FF>o</fgcolor> do")
		.DefaultItem = h
		.ItemBar(0,"K1",8) = 16777215
	endwith
endwith
636
How can I change the foreground color of the HTML text or caption of the bar in the chart

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"
		.DefaultItem = h
		.ItemBar(0,"K1",8) = 16777215
	endwith
endwith
635
How can I assign a tooltip to a bar in the chart

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",6) = "This is a bit of text that's displayed when the cursor hovers the bar"
	endwith
endwith
634
How can I vertically align the HTML text or caption of the bar in the chart

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.DefaultItem = h
		.ItemHeight(0) = 32
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"
		.DefaultItem = h
		.ItemBar(0,"K1",5) = 0
	endwith
endwith
633
How can I align the HTML text or caption of the bar in the chart

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"
		.DefaultItem = h
		.ItemBar(0,"K1",4) = 0
	endwith
endwith
632
How can I assign a text or some HTML caption to a bar in the chart

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",3) = " <bgcolor=FF0000>to do</bgcolor> "
	endwith
endwith
631
How can I change the ending date of the bar in the chart
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",2) = {^2001-1-6}
	endwith
endwith
630
How can I change the starting date of the bar in the chart
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",1) = {^2001-1-1}
	endwith
endwith
629
How can I change the style or the name of the bar in the chart

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",0) = "Progress"
	endwith
endwith
628
How can I access properties and methods of the bar in the chart
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",0) = "Progress"
	endwith
endwith
627
How can I remove all bars in the item
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
		.ClearBars(h)
	endwith
endwith
626
How can I remove a bar from the chart
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
		.RemoveBar(h,"K1")
	endwith
endwith
625
How can I add a bar and some text inside, in the chart area

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-6},Null," to do ")
	endwith
endwith
624
How can I add a bar and some text inside, in the chart area
with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-6},Null,"<bgcolor=FF0000> to do </bgcolor>")
	endwith
endwith
623
How can I add an anchor or a hyperline in the chart area

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"",{^2001-1-2},{^2001-1-14},Null,"just a <a1>link</a>")
	endwith
endwith
622
How can I add some text or captions in the chart area

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"",{^2001-1-2},{^2001-1-14},Null,"just a <b>caption</b>")
	endwith
endwith
621
How can I add a bar in the chart area

with thisform.G2antt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-4})
	endwith
endwith
620
Is there any option to put a picture or an icon to the thumb part of the scroll bar
with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.ScrollPartCaption(2,256) = "<img>1</img>"
	.Object.ScrollThumbSize(2) = 24
endwith
619
How can I scroll fast the chart, or page by page

with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ScrollHeight = 20
	.ScrollButtonWidth = 20
	.AllowChartScrollPage = .T.
	.Object.ScrollPartCaption(2,2048) = "<img>1</img>"
	.Object.ScrollPartCaption(2,32) = "<img>2</img>"
endwith
618
How can I scroll fast the chart, or page by page

with thisform.G2antt1
	.ScrollButtonWidth = 16
	.AllowChartScrollPage = .T.
	.Object.ScrollPartCaption(2,2048) = "<<"
	.Object.ScrollPartCaption(2,32) = ">>"
endwith
617
How can I scroll fast the chart, or page by page

with thisform.G2antt1
	.AllowChartScrollPage = .T.
endwith
616
How can I display years, from 3 to 3
with thisform.G2antt1
	.Chart.UnitWidth = 64
	with .Chart.Level(0)
		.Label = "<%yyyy%>"
		.Unit = 0
		.Count = 3
	endwith
endwith
615
How can I display years
with thisform.G2antt1
	.Chart.UnitWidth = 64
	with .Chart.Level(0)
		.Label = "<%yy%>"
		.Unit = 0
	endwith
endwith
614
How can I display years

with thisform.G2antt1
	.Chart.UnitWidth = 48
	.Chart.Level(0).Label = 0
endwith
613
How can I display months, from 3 to 3
with thisform.G2antt1
	.Chart.FirstVisibleDate = {^2001-1-1}
	.Chart.LevelCount = 2
	.Chart.UnitWidth = 64
	.Chart.Level(0).Label = 1
	with .Chart.Level(1)
		.Label = "<%mmmm%>"
		.Unit = 16
		.Count = 3
	endwith
endwith
612
How can I display months
with thisform.G2antt1
	.Chart.UnitWidth = 64
	.Chart.LevelCount = 2
	.Chart.Level(0).Label = 1
	with .Chart.Level(1)
		.Label = "<%mmmm%>/<%yy%>"
		.Unit = 16
	endwith
endwith
611
How can I display months

with thisform.G2antt1
	.Chart.LevelCount = 2
	.Chart.UnitWidth = 64
	.Chart.Level(0).Label = 1
	.Chart.Level(1).Label = 16
endwith
610
How can I display weeks

with thisform.G2antt1
	.Chart.LevelCount = 2
	.Chart.UnitWidth = 64
	.Chart.Level(0).Label = 17
	.Chart.Level(1).Label = 256
endwith
609
How can I display weeks
with thisform.G2antt1
	.Chart.LevelCount = 2
	.Chart.Level(0).Label = 17
	.Chart.Level(1).Label = "<%ww%>"
endwith
608
How can I display days, from 2 to 2
with thisform.G2antt1
	.Chart.LevelCount = 2
	.Chart.Level(0).Label = 256
	with .Chart.Level(1)
		.Label = "<%dd%>"
		.Count = 2
	endwith
endwith
607
How can I display days

with thisform.G2antt1
	.Chart.LevelCount = 2
	.Chart.Level(0).Label = 256
	.Chart.Level(1).Label = "<%dd%>"
endwith
606
How can I display days

with thisform.G2antt1
	.Chart.LevelCount = 2
	.Chart.Level(0).Label = 256
	.Chart.Level(1).Label = 4096
endwith
605
How can I display hours, from 6 to 6

with thisform.G2antt1
	.Chart.FirstVisibleDate = "00:00"
	.Chart.LevelCount = 2
	.Chart.Level(0).Label = 4096
	with .Chart.Level(1)
		.Label = "<%hh%>"
		.Count = 6
	endwith
endwith
604
How can I display hours

with thisform.G2antt1
	.Chart.LevelCount = 2
	.Chart.Level(0).Label = 4096
	.Chart.Level(1).Label = "<%hh%>"
endwith
603
How can I display hours

with thisform.G2antt1
	.Chart.LevelCount = 2
	.Chart.Level(0).Label = 4096
	.Chart.Level(1).Label = 65536
endwith
602
How can I display minutes, from 15 to 15

with thisform.G2antt1
	.Chart.FirstVisibleDate = "00:00"
	.Chart.LevelCount = 2
	.Chart.Level(0).Label = 65536
	with .Chart.Level(1)
		.Label = "<%nn%>"
		.Count = 15
	endwith
endwith
601
How can I display minutes

with thisform.G2antt1
	.Chart.LevelCount = 2
	.Chart.Level(0).Label = 65536
	.Chart.Level(1).Label = "<%nn%>"
endwith